home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Apple Scanner Training / Needs / background_2597.txt < prev    next >
Text File  |  1990-04-09  |  7KB  |  327 lines
  1. -- background: 2597 from stack: in
  2. -- bmap block id: 3251
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openStack
  8.   hide message box
  9.   hide menuBar
  10.   pass openStack
  11.   set hilite of background button "Needs" to true
  12.   set hilite of background button "Examples" to false
  13. end openStack
  14.  
  15.  
  16.  
  17. -- part 19 (button)
  18. -- low flags: 00
  19. -- high flags: 8004
  20. -- rect: left=69 top=317 right=338 bottom=207
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 1
  24. -- font id: 0
  25. -- text size: 12
  26. -- style flags: 0
  27. -- line height: 16
  28. -- part name: Market Needs
  29. ----- HyperTalk script -----
  30. on mouseUp
  31.   visual effect zoom open
  32.   go to card id 5306
  33.   set hilite of background button "Market Needs" to true
  34.   ResetMenuField
  35. end mouseUp
  36.  
  37.  
  38.  
  39.  
  40. -- part 20 (button)
  41. -- low flags: 00
  42. -- high flags: 2000
  43. -- rect: left=228 top=317 right=337 bottom=255
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 21700 / 21700
  46. -- text alignment: 1
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: New Button
  52. ----- HyperTalk script -----
  53. on mouseUp
  54.   visual dissolve slow to card
  55.   go to card id 4243 of stack "Selling Home Card"
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 21 (button)
  61. -- low flags: 00
  62. -- high flags: 8004
  63. -- rect: left=289 top=317 right=338 bottom=427
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Examples
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   push card
  75.   visual effect zoom open
  76.   go to card id 8927 of stack "Examples"
  77.   set hilite of background button "Examples" to true
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 24 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=402 top=3 right=42 bottom=438
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 1008 / 1008
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: 
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   doMenu "Print Card"
  97. end  mouseUp
  98.  
  99.  
  100.  
  101.  
  102. -- part 25 (button)
  103. -- low flags: 00
  104. -- high flags: 0000
  105. -- rect: left=451 top=3 right=42 bottom=491
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 1004 / 1004
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: 
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   play harpsichord a4
  117.   global search
  118.   answer "Type of Search?" with "Browse" or "Automatic" or "Cancel"
  119.   if it is "Browse" then
  120.     visual wipe up slowly
  121.     go to card "Glossary" of stack "Glossary"
  122.   end if
  123.   if it is "Automatic" then
  124.     ask "Find Word?"
  125.     put it into search
  126.     if search is empty then
  127.       exit mouseUp
  128.     else
  129.       visual wipe up slowly
  130.       put "find search" into message box
  131.       hide message
  132.       go to card "Glossary" of stack "Glossary"
  133.       find word search in field "Text"
  134.       if the result is "not found" then
  135.         answer "Word not found." with "OK"
  136.         exit mouseUp
  137.       else
  138.         show card field id 13
  139.         wait 4 seconds
  140.         hide card field id 13
  141.       end if
  142.     end if
  143.   end if
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 26 (button)
  149. -- low flags: 00
  150. -- high flags: 2000
  151. -- rect: left=442 top=281 right=302 bottom=464
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Next Card
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   visual wipe right slow to card
  163.   go to next card
  164. end mouseUp
  165.  
  166.  
  167.  
  168. -- part 27 (button)
  169. -- low flags: 00
  170. -- high flags: 2000
  171. -- rect: left=404 top=281 right=302 bottom=429
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: Prev Card
  180. ----- HyperTalk script -----
  181. on mouseUp
  182.   visual wipe left slow to card
  183.   go to previous card
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 28 (field)
  189. -- low flags: 01
  190. -- high flags: 0004
  191. -- rect: left=73 top=52 right=75 bottom=125
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 0
  195. -- font id: 3
  196. -- text size: 12
  197. -- style flags: 256
  198. -- line height: 16
  199. -- part name: 
  200.  
  201.  
  202. -- part 29 (field)
  203. -- low flags: 01
  204. -- high flags: 0004
  205. -- rect: left=242 top=52 right=75 bottom=315
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 0
  209. -- font id: 3
  210. -- text size: 12
  211. -- style flags: 256
  212. -- line height: 16
  213. -- part name: Benefits Header
  214.  
  215.  
  216. -- part 30 (field)
  217. -- low flags: 01
  218. -- high flags: 0004
  219. -- rect: left=400 top=52 right=75 bottom=473
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 0 / 0
  222. -- text alignment: 0
  223. -- font id: 3
  224. -- text size: 12
  225. -- style flags: 256
  226. -- line height: 16
  227. -- part name: Features Header
  228.  
  229.  
  230. -- part 31 (button)
  231. -- low flags: 00
  232. -- high flags: 2000
  233. -- rect: left=367 top=280 right=303 bottom=395
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 1012 / 1012
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: Pop Card
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   visual dissolve slow to card
  245.   go to card id 5306
  246.   ResetMenuField
  247. end mouseUp
  248.  
  249. on ResetMenuField
  250.   put " DTP/DTPres*" & return & " Desktop Communications" & return & " Legal" & return & " Engineering/Scientific" & return & " HyperCard Stack Development" & return into card field "Select Field"
  251. end ResetMenuField
  252.  
  253.  
  254.  
  255. -- part 32 (button)
  256. -- low flags: 00
  257. -- high flags: 8003
  258. -- rect: left=192 top=280 right=302 bottom=320
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: Show Bottlenecks
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.   global whichButton
  270.   hide background field "Benefits Header"
  271.   hide background field "Features Header"
  272.   hide card field "Benefits"
  273.   hide card field "Features"
  274.   show background field "Bottlenecks Header"
  275.   show card field "Bottlenecks"
  276.   show background button "Hide Bottlenecks"
  277.   hide background button "Show Bottlenecks"
  278.   set hilite of background button "Hide Bottlenecks" to true
  279.   get the location of card button whichButton
  280.   click at it
  281. end mouseUp
  282.  
  283.  
  284.  
  285. -- part 33 (field)
  286. -- low flags: 81
  287. -- high flags: 0004
  288. -- rect: left=292 top=52 right=75 bottom=406
  289. -- title width / last selected line: 0
  290. -- icon id / first selected line: 0 / 0
  291. -- text alignment: 1
  292. -- font id: 3
  293. -- text size: 12
  294. -- style flags: 256
  295. -- line height: 16
  296. -- part name: Bottlenecks Header
  297.  
  298.  
  299. -- part 34 (button)
  300. -- low flags: 80
  301. -- high flags: 8003
  302. -- rect: left=191 top=280 right=302 bottom=319
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 0 / 0
  305. -- text alignment: 1
  306. -- font id: 0
  307. -- text size: 12
  308. -- style flags: 0
  309. -- line height: 16
  310. -- part name: Hide Bottlenecks
  311. ----- HyperTalk script -----
  312. on mouseUp
  313.   global whichButton
  314.   hide background field "Bottlenecks Header"
  315.   hide card field "Bottlenecks"
  316.   show background field "Benefits Header"
  317.   show background field "Features Header"
  318.   show card field "Benefits"
  319.   show card field "Features"
  320.   hide background button "Hide Bottlenecks"
  321.   set hilite of background button "Hide Bottlenecks" to false
  322.   show background button "Show Bottlenecks"
  323.   get the location of card button whichButton
  324.   click at it
  325. end mouseUp
  326.  
  327.